home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / dlreclst.zip / DLRECLST.BAS next >
BASIC Source File  |  1993-06-04  |  1KB  |  37 lines
  1. 10 CLS
  2. 20 PRINT TAB(17);"DELETED PAF INDIV2.DAT AND PAF MARR2.DAT RECORDS"
  3. 30 PRINT:PRINT TAB(20);"Created and placed in Public Domain by"
  4. 40 PRINT TAB(24);"Jack J. Chandler, 15 Feb. 1991"
  5. 50 PRINT:PRINT TAB(26);"Output is to the Printer"
  6. 60 PRINT:PRINT:PRINT
  7. 70 LINE INPUT "Enter Drive and Path of FR data: "; DP$
  8. 80 IF RIGHT$(DP$,1)="\" THEN GOTO 100
  9. 90 DP$=DP$+"\"
  10. 100 F$=DP$+"INDIV2.DAT"
  11. 110 N=11
  12. 120 LPRINT TAB(20);"AVAILABLE DELETED INDIV2.DAT RECORDS":LPRINT
  13. 130 OPEN "R",1,F$,92
  14. 140 FIELD 1,92 AS R$
  15. 150 GET 1,1
  16. 160 CH$="":FR$=""
  17. 170 FOR I=12 TO 21
  18. 180 CH$=MID$(R$,I,1)
  19. 190 IF CH$>CHR$(32) THEN FR$=FR$+CH$
  20. 200 NEXT I
  21. 210 NR=VAL(FR$)+1
  22. 220 IF NR=1 THEN LPRINT "* NO AVAILABLE DELETED RECORDS *":CLOSE:GOTO 300
  23. 230 IF EOF(1) THEN CLOSE 1:GOTO 300
  24. 240 GET 1,NR
  25. 250 IF MID$(R$,N,1)<>"D" THEN CLOSE :GOTO 300
  26. 260 LPRINT NR-1,
  27. 270 NR=CVI(MID$(R$,1,2))+1
  28. 280 GOTO 230
  29. 290 CLOSE
  30. 300 IF N=28 THEN CLOSE:LPRINT CHR$(12):END
  31. 310 N=28
  32. 320 LPRINT:LPRINT TAB(20);"AVAILABLE DELETED MARR2.DAT RECORDS":LPRINT
  33. 330 F$=DP$+"MARR2.DAT"
  34. 340 OPEN "R",1,F$,28
  35. 350 FIELD 1,28 AS R$
  36. 360 GOTO 150
  37.